<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.5 of April 16, 2007 on October 19, 2007 at 12:17:03 pm</time-stamp>


<class>
<name>Equipment</name>
<environment>SpaceTrader</environment>
<super>Core.Object</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>name price value techlevel </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category>SLesson Intro Content</category>
<attributes>
<package>SpaceTrader</package>
</attributes>
</class>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SpaceTrader.Equipment class</class-id> <category>instance creation</category>

<body package="SpaceTrader" selector="new">new
	"Answer a newly created and initialized instance."

	^super new initialize</body>
</methods>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<comment>
<class-id>SpaceTrader.Equipment</class-id>
<body>Equipment is a superclass which holds gadgets, shields, and weapons

Instance Variables:
	name	&lt;Object&gt;	All equipment objects have a name
	price	&lt;Object&gt;	All equipment costs a variable amount
	techlevel	&lt;TechLevel&gt; The level which a system must have attained in order to sell this equipment.
	value	&lt;Object&gt;	Sell price.

</body>
</comment>

<methods>
<class-id>SpaceTrader.Equipment</class-id> <category>accessing</category>

<body package="SpaceTrader" selector="name">name
	^name</body>

<body package="SpaceTrader" selector="name:">name: anObject
	name := anObject</body>

<body package="SpaceTrader" selector="price">price
	^price</body>

<body package="SpaceTrader" selector="price:">price: anObject
	price := anObject</body>

<body package="SpaceTrader" selector="techlevel">techlevel
	^techlevel</body>

<body package="SpaceTrader" selector="techlevel:">techlevel: anObject
	techlevel := anObject</body>

<body package="SpaceTrader" selector="value">value
	^value</body>

<body package="SpaceTrader" selector="value:">value: anObject
	value := anObject</body>
</methods>

<methods>
<class-id>SpaceTrader.Equipment</class-id> <category>initialize-release</category>

<body package="SpaceTrader" selector="initialize">initialize
	"Initialize a newly created instance. This method must answer the receiver."

	" *** Edit the following to properly initialize instance variables ***"
	name := nil.
	price := nil.
	value := nil.
	techlevel := nil.
	" *** And replace this comment with additional initialization code *** "
	^self</body>
</methods>

</st-source>
